﻿Public Class frmEncrypt
    Dim MyCrypt As New Crypto

    Private Sub frmEncrypt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub


    Private Sub BtnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEncrypt.Click
        Me.TxtEncrypt.Text = MyCrypt.Encrypt(Me.TxtPassword.Text, "sys11266")

    End Sub

    Private Sub BtnDecrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDecrypt.Click
        Me.TxtDecrypt.Text = MyCrypt.Decrypt(Me.TxtEncrypt.Text, "sys11266")

    End Sub
End Class